home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / intext1a / frmgolba.frm < prev    next >
Text File  |  1999-10-05  |  25KB  |  793 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  4. Begin VB.Form frmGlobal 
  5.    Caption         =   "Autex. Global In Text Search.  copyright(c) Neil Etherington 1999"
  6.    ClientHeight    =   8310
  7.    ClientLeft      =   60
  8.    ClientTop       =   630
  9.    ClientWidth     =   11880
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   8310
  12.    ScaleMode       =   0  'User
  13.    ScaleWidth      =   11880
  14.    StartUpPosition =   2  'CenterScreen
  15.    WindowState     =   2  'Maximized
  16.    Begin ComctlLib.Toolbar Toolbar1 
  17.       Align           =   1  'Align Top
  18.       Height          =   420
  19.       Left            =   0
  20.       TabIndex        =   18
  21.       Top             =   0
  22.       Width           =   11880
  23.       _ExtentX        =   20955
  24.       _ExtentY        =   741
  25.       ButtonWidth     =   635
  26.       ButtonHeight    =   582
  27.       Appearance      =   1
  28.       ImageList       =   "ImageList1"
  29.       _Version        =   327682
  30.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  31.          NumButtons      =   7
  32.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  33.             Object.Tag             =   ""
  34.             Style           =   3
  35.             MixedState      =   -1  'True
  36.          EndProperty
  37.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  38.             Key             =   "Find"
  39.             Object.ToolTipText     =   "Multiple Search"
  40.             Object.Tag             =   ""
  41.             ImageKey        =   "Find"
  42.          EndProperty
  43.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  44.             Key             =   "FindSingle"
  45.             Object.ToolTipText     =   "Single Search"
  46.             Object.Tag             =   ""
  47.             ImageKey        =   "FindSingle"
  48.          EndProperty
  49.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  50.             Object.Tag             =   ""
  51.             Style           =   3
  52.             MixedState      =   -1  'True
  53.          EndProperty
  54.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  55.             Key             =   "Clear"
  56.             Object.ToolTipText     =   "Clear Data Fields"
  57.             Object.Tag             =   ""
  58.             ImageKey        =   "Clear"
  59.          EndProperty
  60.          BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  61.             Object.Tag             =   ""
  62.             Style           =   3
  63.             MixedState      =   -1  'True
  64.          EndProperty
  65.          BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  66.             Key             =   "TxtSearch"
  67.             Object.ToolTipText     =   "Search For Next Occurrence"
  68.             Object.Tag             =   ""
  69.             ImageKey        =   "TxtSearch"
  70.          EndProperty
  71.       EndProperty
  72.       BorderStyle     =   1
  73.    End
  74.    Begin VB.TextBox txtCount 
  75.       Height          =   285
  76.       Left            =   4680
  77.       TabIndex        =   19
  78.       Text            =   "0"
  79.       Top             =   3000
  80.       Width           =   1095
  81.    End
  82.    Begin ComctlLib.StatusBar StatusBar1 
  83.       Align           =   2  'Align Bottom
  84.       Height          =   375
  85.       Left            =   0
  86.       TabIndex        =   17
  87.       Top             =   7935
  88.       Width           =   11880
  89.       _ExtentX        =   20955
  90.       _ExtentY        =   661
  91.       SimpleText      =   ""
  92.       _Version        =   327682
  93.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  94.          NumPanels       =   2
  95.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  96.             Style           =   6
  97.             Alignment       =   1
  98.             Object.Width           =   1764
  99.             MinWidth        =   1764
  100.             TextSave        =   "10/5/99"
  101.             Object.Tag             =   ""
  102.             Object.ToolTipText     =   "Date"
  103.          EndProperty
  104.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  105.             Style           =   5
  106.             Alignment       =   1
  107.             Object.Width           =   1764
  108.             MinWidth        =   1764
  109.             TextSave        =   "10:35 PM"
  110.             Object.Tag             =   ""
  111.             Object.ToolTipText     =   "Time"
  112.          EndProperty
  113.       EndProperty
  114.    End
  115.    Begin VB.ComboBox Combo1 
  116.       BeginProperty Font 
  117.          Name            =   "MS Sans Serif"
  118.          Size            =   9.75
  119.          Charset         =   0
  120.          Weight          =   400
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       Height          =   3300
  126.       Left            =   2760
  127.       Style           =   1  'Simple Combo
  128.       TabIndex        =   6
  129.       Top             =   4320
  130.       Width           =   3015
  131.    End
  132.    Begin VB.FileListBox File1 
  133.       Height          =   3210
  134.       Left            =   360
  135.       System          =   -1  'True
  136.       TabIndex        =   5
  137.       Top             =   4440
  138.       Width           =   2175
  139.    End
  140.    Begin VB.DirListBox Dir1 
  141.       Height          =   2790
  142.       Left            =   360
  143.       TabIndex        =   1
  144.       Top             =   1560
  145.       Width           =   2175
  146.    End
  147.    Begin VB.DriveListBox Drive1 
  148.       Height          =   315
  149.       Left            =   360
  150.       TabIndex        =   0
  151.       Top             =   1080
  152.       Width           =   2175
  153.    End
  154.    Begin VB.Frame fmeSearch 
  155.       Caption         =   "Global In Text Search"
  156.       Height          =   7095
  157.       Left            =   240
  158.       TabIndex        =   9
  159.       Top             =   720
  160.       Width           =   5655
  161.       Begin VB.TextBox txtSngCount 
  162.          Height          =   285
  163.          Left            =   4440
  164.          TabIndex        =   21
  165.          Text            =   "0"
  166.          Top             =   3000
  167.          Width           =   1095
  168.       End
  169.       Begin ComctlLib.ProgressBar ProgressBar1 
  170.          Height          =   135
  171.          Left            =   2520
  172.          TabIndex        =   15
  173.          Top             =   600
  174.          Width           =   3015
  175.          _ExtentX        =   5318
  176.          _ExtentY        =   238
  177.          _Version        =   327682
  178.          Appearance      =   1
  179.          Max             =   1000
  180.       End
  181.       Begin VB.TextBox txtFilespec 
  182.          Height          =   285
  183.          Left            =   2520
  184.          TabIndex        =   4
  185.          Text            =   "*.txt"
  186.          Top             =   1560
  187.          Width           =   3015
  188.       End
  189.       Begin VB.CheckBox chkMatchCase 
  190.          Caption         =   "Match Case."
  191.          Height          =   375
  192.          Left            =   2520
  193.          TabIndex        =   3
  194.          ToolTipText     =   "Check This Box If You Want To Match Case"
  195.          Top             =   840
  196.          Width           =   1455
  197.       End
  198.       Begin VB.TextBox txtFilesFound 
  199.          Height          =   285
  200.          Left            =   2520
  201.          TabIndex        =   7
  202.          TabStop         =   0   'False
  203.          Text            =   "0"
  204.          Top             =   2280
  205.          Width           =   1095
  206.       End
  207.       Begin VB.TextBox txtFilesSearched 
  208.          Height          =   285
  209.          Left            =   2520
  210.          TabIndex        =   8
  211.          TabStop         =   0   'False
  212.          Text            =   "0"
  213.          Top             =   3000
  214.          Width           =   1095
  215.       End
  216.       Begin VB.TextBox txtSearchString 
  217.          Height          =   285
  218.          Left            =   2520
  219.          TabIndex        =   2
  220.          ToolTipText     =   "Please Enter String"
  221.          Top             =   240
  222.          Width           =   3015
  223.       End
  224.       Begin VB.Label lblSngCount 
  225.          AutoSize        =   -1  'True
  226.          Caption         =   "Single Count"
  227.          Height          =   195
  228.          Left            =